## List of NO2 Monitoring Sites ####
sites_NO2 <- read_excel("Supplementary Data Sheet.xlsx",
sheet = "List of NO2 Monitoring Sites")
sites_NO2 <- as.data.frame(sites_NO2)
## List of PM2.5 Monitoring Sites ####
sites_PM2.5 <- read_excel("Supplementary Data Sheet.xlsx",
sheet = "List of PM2.5 Monitoring Sites")
sites_PM2.5 <- as.data.frame(sites_PM2.5)
## merge ####
sites_ulez <- full_join(sites_NO2, sites_PM2.5) ## remove overlaps between pollutants
sites_ulez <- sites_ulez %>% distinct() ## double check no duplicates
nrow(sites_ulez)[1] 198